home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh40.d64 / demo 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  454b  |  15 lines
  1. 100 REM LOTTOSIMULATION
  2. 110 DIM ZAHL%(49)
  3. 120 FORA=1TO6:REM LOTTOZAHLEN ERMITTELN
  4. 130 ZUFALL=INT(RND(1)*49)+1:IFZAHL%(ZUFALL)=1THEN130
  5. 140 ZAHL%(ZUFALL)=1:NEXT
  6. 150 PRINT"[147]BITTE GEBEN SIE IHRE ZAHLEN EIN"
  7. 160 FORA=1TO6:REM TIPPVORSCHLAEGE EINGEBEN
  8. 170 INPUT"  ][157][157]";EIN(A):IFEIN(A)<1OREIN(A)>49THENPRINT"UNGUELTIG":GOTO170
  9. 180 NEXT
  10. 190 PRINT:PRINT"DIE AKTUELLEN LOTTOZAHLEN SIND"
  11. 200 FORA=1TO49:IFZAHL%(A)=1THENPRINTA;
  12. 210 NEXT
  13. 220 FORA=1TO6:IFZAHL%(EIN(A))=1THENZAELER=ZAELER+1
  14. 230 NEXT:PRINT:PRINT:PRINT"SIE HATTEN";ZAELER;"ZAHL(EN) RICHTIG"
  15.